home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / LImacSTACK.8_89 / background_20383.txt < prev    next >
Text File  |  1989-08-04  |  6KB  |  300 lines
  1. -- background: 20383 from stack: in.8_89
  2. -- bmap block id: 3501
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Tips-Tricks Bg
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   show bg btn 2
  9.   show bg btn 3
  10. end closeBackground
  11.  
  12. on closeCard
  13.   show bg btn 2
  14.   show bg btn 3
  15.   hide bg btn 6
  16.   hide bg btn 7
  17.   hide bg btn 8
  18.   hide fld "PopUp"
  19.   hide fld "Big PopUp"
  20. end closeCard
  21.  
  22. on newCard
  23.   if fld "Tips Title" is empty then put "CUSTOMIZING THE HOME CARD" into fld "Tips Title"
  24.   tabKey
  25.   tabkey
  26.   type return
  27. end newCard
  28.  
  29.  
  30. -- part 1 (field)
  31. -- low flags: 03
  32. -- high flags: 2000
  33. -- rect: left=24 top=62 right=85 bottom=489
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 2304
  40. -- line height: 16
  41. -- part name: Tips Title
  42.  
  43.  
  44. -- part 2 (field)
  45. -- low flags: 03
  46. -- high flags: 2000
  47. -- rect: left=37 top=106 right=255 bottom=191
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 65535
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 256
  54. -- line height: 16
  55. -- part name: Sidebar
  56.  
  57.  
  58. -- part 3 (field)
  59. -- low flags: 03
  60. -- high flags: 2000
  61. -- rect: left=197 top=106 right=310 bottom=480
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Text
  70.  
  71.  
  72. -- part 5 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=68 top=269 right=289 bottom=94
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 4465 / 4465
  78. -- text alignment: 1
  79. -- font id: 3
  80. -- text size: 9
  81. -- style flags: 0
  82. -- line height: 12
  83. -- part name: Index
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   push cd
  87.   visual barn door close to black
  88.   visual barn door open
  89.   go cd "LImacSTACK index"
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 6 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=91 top=270 right=290 bottom=116
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 25234 / 25234
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Multi-Prev
  106. ----- HyperTalk script -----
  107. on mouseDown
  108.   go to prev cd of this bg
  109.   put the ticks into tickHolder
  110.   repeat until (the mouse is up)
  111.     if (the ticks - tickHolder) > 30
  112.     then
  113.     go to prev cd of this bg
  114.     put the ticks into tickHolder
  115.     send openCard to this bg
  116.   end if
  117. end repeat
  118. end mouseDown
  119.  
  120.  
  121.  
  122. -- part 7 (button)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=112 top=270 right=290 bottom=138
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 2749 / 2749
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Multi-Next
  134. ----- HyperTalk script -----
  135. on mouseDown
  136.   visual  scroll left
  137.   go to next cd of this bg
  138.   put the ticks into tickHolder
  139.   repeat until (the mouse is up)
  140.     if (the ticks - tickHolder) > 30
  141.     then
  142.     go to next cd of this bg
  143.     put the ticks into tickHolder
  144.   end if
  145. end repeat
  146. end mouseDown
  147.  
  148.  
  149.  
  150. -- part 8 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=135 top=268 right=290 bottom=164
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 6721 / 6721
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Return
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   visual iris close to grey
  165.   visual iris open
  166.   pop cd
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 9 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=480 top=27 right=48 bottom=508
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 20689 / 20689
  177. -- text alignment: 1
  178. -- font id: 3
  179. -- text size: 9
  180. -- style flags: 256
  181. -- line height: 12
  182. -- part name: New Button
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   play "hastalavista"
  186.   go stack "HOME"
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 11 (field)
  192. -- low flags: 81
  193. -- high flags: 2007
  194. -- rect: left=196 top=93 right=276 bottom=434
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: popup
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   set the scroll of me to 0
  206.   hide me
  207. end mouseUp
  208.  
  209.  
  210. -- part 13 (button)
  211. -- low flags: 80
  212. -- high flags: 8003
  213. -- rect: left=62 top=208 right=230 bottom=162
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 3
  218. -- text size: 9
  219. -- style flags: 0
  220. -- line height: 12
  221. -- part name: Unique BBSs
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   set the scroll of fld "PopUp" to 0
  225.   set the visible of fld "PopUp" to not the visible of fld "PopUp"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 15 (button)
  231. -- low flags: 80
  232. -- high flags: 8003
  233. -- rect: left=62 top=231 right=253 bottom=162
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 3
  238. -- text size: 9
  239. -- style flags: 0
  240. -- line height: 12
  241. -- part name: NY BBSs
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   lock screen
  245.   set the scroll of fld "Big PopUp" to 0
  246.   set the visible of fld "Big PopUp" to not the visible of fld "Big PopUp"
  247.   show bg btn "PrintField"
  248.   unlock screen with visual dissolve very fast
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 14 (field)
  254. -- low flags: 81
  255. -- high flags: 2007
  256. -- rect: left=1 top=90 right=335 bottom=511
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 0
  260. -- font id: 4
  261. -- text size: 9
  262. -- style flags: 0
  263. -- line height: 12
  264. -- part name: Big PopUp
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   lock screen
  268.   set the scroll of me to 0
  269.   hide me
  270.   hide bg btn 8
  271.   unlock screen with visual dissolve very fast
  272. end mouseUp
  273.  
  274.  
  275. -- part 16 (button)
  276. -- low flags: 80
  277. -- high flags: A003
  278. -- rect: left=399 top=29 right=51 bottom=478
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: PrintField
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   answer "Print this Field?" with "Yes" or "Cancel"
  290.   if it is "Cancel"
  291.   then
  292.   exit mouseUp
  293. else
  294.   printfield "field 5"
  295.   get the result
  296.   if it is not empty then put it
  297. end if
  298. end mouseUp
  299.  
  300.